home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / Infotenimiento / Makers of the 20th Century / Data / SHARED.DIR / 01028.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  10.4 KB  |  286 lines
  1. on GoMainMenu
  2.   global gMakersPath
  3.   ClickSnd()
  4.   updateStage()
  5.   unLoad()
  6.   unLoadCast()
  7.   GoBlackFrame()
  8.   go("fade", gMakersPath & "MAIN.DIR")
  9. end
  10.  
  11. on goRandom
  12.   global gMakersPath
  13.   ClickSnd()
  14.   updateStage()
  15.   unLoad()
  16.   unLoadCast()
  17.   GoBlackFrame()
  18.   go("fade", gMakersPath & "RANDOM.DIR")
  19. end
  20.  
  21. on GoSenses
  22.   global gMakersPath, gMakerName
  23.   ClickSnd()
  24.   updateStage()
  25.   unLoad()
  26.   unLoadCast()
  27.   GoBlackFrame()
  28.   chaptersLists5(gMakerName)
  29. end
  30.  
  31. on chaptersLists5 MakerName
  32.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath
  33.   set thePath to gMakersPath & "senses.dir"
  34.   if (SavedPos = EMPTY) or voidp(SavedPos) then
  35.     set xx to "ASTAIRE,BARDOT,BEATLES,BIRDSEYE,BRANDO,BRECHT,BROWN,BUNUEL,CARTIER-BRESSON,CHAPLIN,DALI,DAVIS,DEBUSSY,DISNEY,DYLAN,HEARTFIELD,HEINZ,HEPBURN,HITCHCOCK,HOLIDAY,JACKSON,KROC,MADONNA,MAHLER,MATISSE,MONROE,MOORE,PARKER,PICASSO,PRESLEY,STONES,SPIELBERG,STANISLAVSKY,STRAVINSKY,WARHOL,WILLIAMS"
  36.     set i to 1
  37.     set out to 0
  38.     repeat while (i < the number of items in xx) and not out
  39.       if MakerName = item i of xx then
  40.         set out to 1
  41.         next repeat
  42.       end if
  43.       set i to i + 1
  44.     end repeat
  45.     if i > the number of items in xx then
  46.       beep()
  47.     end if
  48.     set MakersList to ["B": "454,464", "A": "219,229", "A": "221,231", "B": "458,468", "D": "565,575", "B": "455,465", "C": "11,21", "B": "456,466", "A": "217,227", "C": "9,19", "B": "452,462", "C": "13,23", "C": "15,25", "A": "218,228", "D": "566,576", "C": "6,16", "C": "12,22", "C": "8,18", "A": "220,230", "D": "567,577", "B": "459,469", "A": "222,232", "A": "223,233", "D": "570,580", "B": "453,463", "D": "563:573", "A": "215,225", "D": "571,581", "C": "7,17", "D": "569,579", "D": "568,578", "D": "564,574", "B": "457,467", "C": "14,24", "A": "216,226", "C": "10,20"]
  49.     set x to getPropAt(MakersList, i)
  50.     set x2 to getAt(MakersList, i)
  51.     put "shuffle " & QUOTE & x & QUOTE into line 1 of SavedPos
  52.     put x2 into line 2 of SavedPos
  53.   end if
  54.   go("fade", thePath)
  55. end
  56.  
  57. on GoDiscover
  58.   global gMakersPath, gMakerName
  59.   ClickSnd()
  60.   updateStage()
  61.   unLoad()
  62.   unLoadCast()
  63.   GoBlackFrame()
  64.   chaptersLists3(gMakerName)
  65. end
  66.  
  67. on chaptersLists3 MakerName
  68.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath
  69.   set thePath to gMakersPath & "discover.dir"
  70.   set xx to "ARMSTRONG,BOYER,BRAUN,CARSON,CURIE,DIRAC,EINSTEIN,GAGARIN,GRAY,HAWKING,HILLARY,HUBBLE,LEAKEY,LORENZ,LOVELOCK,MENDES,OPPENHEIMER,ROWLAND,RUTHERFORD,SCOTT,WARD,WILSON"
  71.   set i to 1
  72.   set out to 0
  73.   repeat while (i < the number of items in xx) and not out
  74.     if MakerName = item i of xx then
  75.       set out to 1
  76.       next repeat
  77.     end if
  78.     set i to i + 1
  79.   end repeat
  80.   if i > the number of items in xx then
  81.     beep()
  82.   end if
  83.   set MakersList to [35: 116, 604: 163, 35: 215, 533: 35, 248: 444, 248: 35, 461: 444, 106: 444, 320: 447, 354: 35, 604: 233, 35: 308, 604: 92, 177: 444, 532: 444, 35: 378, 177: 35, 604: 373, 604: 303, 390: 444, 462: 35]
  84.   set theX to getAt(MakersList, i)
  85.   set theY to getPropAt(MakersList, i)
  86.   if the machineType < 256 then
  87.     openXLib("SetMouse XCMD")
  88.     SetMouse(theY, theX)
  89.     closeXLib("SetMouse XCMD")
  90.   end if
  91.   go(1, string(thePath))
  92. end
  93.  
  94. on goMind
  95.   global gMakerName
  96.   ClickSnd()
  97.   updateStage()
  98.   unLoad()
  99.   unLoadCast()
  100.   GoBlackFrame()
  101.   chaptersListsMind(gMakerName)
  102. end
  103.  
  104. on chaptersListsMind MakerName
  105.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath
  106.   set thePath to gMakersPath & "MIND.DIR"
  107.   set xx to "AUDEN,BEAUVOIR,CHOMSKY,GURLEY-BROWN,FREUD,FRIEDAN,GRAHAM,GREER,HEMINGWAY,HUXLEY,JOYCE,JUNG,KAFKA,ORWELL,OWEN,PASTERNAK,PIAGET,RUSSELL,SARTRE,SAUSSURE,SOLZHENITSYN,TERESA,VARAH,WILSON,WOOLF"
  108.   set i to 1
  109.   set out to 0
  110.   repeat while (i < the number of items in xx) and not out
  111.     if MakerName = item i of xx then
  112.       set out to 1
  113.       next repeat
  114.     end if
  115.     set i to i + 1
  116.   end repeat
  117.   if i > the number of items in xx then
  118.     beep()
  119.   end if
  120.   set MakersList to ["136", "056", "143", "082", "107", "026", "076", "033", "094", "166", "050", "111", "172", "157", "063", "129", "115", "069", "122", "087", "021", "150", "044", "037", "100"]
  121.   set ToGo to getAt(MakersList, i)
  122.   go("fade", thePath)
  123. end
  124.  
  125. on GoBody
  126.   global gWhichMov, gMakersPath, gdelim, gMakerName
  127.   ClickSnd()
  128.   updateStage()
  129.   unLoad()
  130.   unLoadCast()
  131.   GoBlackFrame()
  132.   chaptersLists(gMakerName)
  133. end
  134.  
  135. on chaptersLists MakerName
  136.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath, gdelim, WereToGo
  137.   if the machineType <> 256 then
  138.     set gdelim to ":"
  139.     set the itemDelimiter to gdelim
  140.   else
  141.     set gdelim to "\"
  142.     set the itemDelimiter to gdelim
  143.   end if
  144.   set gDrive to item 1 of the pathName
  145.   set the itemDelimiter to ","
  146.   set thePath to gDrive & gdelim & "MAKERS" & gdelim & "BODY" & gdelim & "BODYMAIN.DIR"
  147.   set MakersList1 to ["ALI": 1, "BANNISTER": 1, "BANTING": 2, "BARNARD": 2, "CHANEL": 1, "CRICK": 2, "VALOIS": 1, "DUNCAN": 1, "EHRLICH": 2, "FLEMING": 2, "MONTAGNIER": 2, "GRAHAM": 1, "JORDAN": 1, "KORBUT": 1, "MONTAGNIER": 2, "NAVRATILOVA": 1, "NUREYEV": 1, "OWENS": 1, "PELE": 1, "PINCUS": 2, "RUTH": 1, "SANGER": 2, "SPOCK": 2, "STEPTOE": 2, "CRICK": 2]
  148.   set MakersList2 to ["411", "512", "2365", "2384", "1615", "2619", "2079", "1817", "2397", "2641", "2544", "1926", "959", "1497", "2641", "1075", "2211", "1218", "1394", "2624", "730", "2473", "2438", "2573", "2619"]
  149.   set prevGoTo to findPosNear(MakersList1, MakerName)
  150.   set temp to getAt(MakersList2, prevGoTo)
  151.   set tem to getProp(MakersList1, MakerName)
  152.   set NextFrame to MakerName
  153.   set lastFrame to NextFrame
  154.   set CurrFrame to NextFrame
  155.   set goto to value(temp)
  156.   if tem = 2 then
  157.     set WereToGo to "fade"
  158.   else
  159.     set WereToGo to "fade2"
  160.     set NextFrame to "fall1"
  161.   end if
  162.   go("open", string(thePath))
  163. end
  164.  
  165. on GoPower
  166.   global gWhichMov, gWhichFrame, gMakersPath, gdelim, gMakerName
  167.   ClickSnd()
  168.   updateStage()
  169.   unLoad()
  170.   unLoadCast()
  171.   GoBlackFrame()
  172.   chaptersLists4(gMakerName)
  173. end
  174.  
  175. on chaptersLists4 MakerName
  176.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath
  177.   if the machineType <> 256 then
  178.     set gdelim to ":"
  179.     set the itemDelimiter to gdelim
  180.   else
  181.     set gdelim to "\"
  182.     set the itemDelimiter to gdelim
  183.   end if
  184.   set gDrive to item 1 of the pathName
  185.   set the itemDelimiter to ","
  186.   set thePath to gDrive & gdelim & "MAKERS" & gdelim & "POWER"
  187.   set xx to "ARAFAT,GURION,BERNBACH,BHUTTO,BRANDT,BREZHNEV,CASTRO,CHURCHILL,COLLINS,GAULLE,DEMING,DENG,ESCOBAR,FRANCO,FRIEDMAN,GANDHII,GANDHIM,GORBACHEV,SELASSIE,HEARST,HIROHITO,HITLER,MINH,KENNEDY,KHOMEINI,KHRUSHCHEV,KING,KOHL,LENIN,MALCOLMX,MANDELA,MAO,MEINHOF,MURDOCH,MUSSOLINI,NASSER,NIXON,PANKHURST,PARKS,REAGAN,REEVES,RODDICK,ROOSEVELT,SANCHEZ,STALIN,THATCHER,TITO,WALESA,WINFREY,YAMANI"
  188.   set i to 1
  189.   set out to 0
  190.   repeat while (i < the number of items in xx) and not out
  191.     if MakerName = item i of xx then
  192.       set out to 1
  193.       next repeat
  194.     end if
  195.     set i to i + 1
  196.   end repeat
  197.   if i > the number of items in xx then
  198.     beep()
  199.   end if
  200.   set MakersList to ["AE.DIR": "016", "AE.DIR": "011", "UE.DIR": "030", "ASE.DIR": "win2", "EE.DIR": "011", "RE.DIR": "047", "UE.DIR": "059", "EE.DIR": "152", "Terror.DIR": "043", "EE.DIR": "109", "UE.DIR": "056", "ASE.DIR": "038", "TERROR.DIR": "pab", "EE.DIR": "093", "UE.DIR": "056", "ASE.DIR": "015", "ASE.DIR": "null", "RE.DIR": "059", "AE.DIR": "024", "UE.DIR": "104", "ASE.DIR": "078", "EE.DIR": "153", "ASE.DIR": "100", "UE.DIR": "048", "AE.DIR": "099", "RE.DIR": "021", "UE.DIR": "014", "EE.DIR": "023", "RE.DIR": "072", "UE.DIR": "015", "AE.DIR": "088", "ASE.DIR": "082", "TERROR.DIR": "034", "UE.DIR": "054", "EE.DIR": "100", "AE.DIR": "033", "UE.DIR": "048", "TERROR.DIR": "009", "UE.DIR": "017", "UE.DIR": "047", "UE.DIR": "078", "EE.DIR": "075", "UE.DIR": "046", "TERROR.DIR": "034", "RE.DIR": "038", "EE.DIR": "154", "EE.DIR": "108", "EE.DIR": "042", "UE.DIR": "100", "UE.DIR": "046"]
  201.   set ToGo to getAt(MakersList, i)
  202.   set addPath to getPropAt(MakersList, i)
  203.   go("fade", thePath & ItemDel & addPath)
  204. end
  205.  
  206. on GoDesign
  207.   global gWhichMov, gMakersPath, gdelim, gMakerName
  208.   ClickSnd()
  209.   updateStage()
  210.   unLoad()
  211.   unLoadCast()
  212.   GoBlackFrame()
  213.   chaptersLists2(gMakerName)
  214. end
  215.  
  216. on chaptersLists2 MakerName
  217.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame, gMakersPath
  218.   set thePath to gMakersPath & "design"
  219.   set xx to "BAEKELAND,BIRO,BOOTH,BUSHNELL,CARLSON,CAROTHERS,CORBUSIER,DARROW,DREW,ENGELBERGER,FISHER,FORD,GATES,GROPIUS,HOFF,JOBS,KALASHNIKOV,LOEWY,LLOYD-WRIGHT,MARCONI,MCNAMARA,MESTRAL,MORITA,NEGROPONTE,PHILIPS,SAUNDERS,SHOENBERG,SUNDBACK,TURING,WHITTLE,WOODRUFF,WRIGHT"
  220.   set i to 1
  221.   set out to 0
  222.   repeat while (i < the number of items in xx) and not out
  223.     if MakerName = item i of xx then
  224.       set out to 1
  225.       next repeat
  226.     end if
  227.     set i to i + 1
  228.   end repeat
  229.   if i > the number of items in xx then
  230.     beep()
  231.   end if
  232.   set MakersList to ["design3.dir": 2, "design2.dir": 5, "design3.dir": 6, "design3.dir": 9, "design4.dir": 5, "design2.dir": 2, "design4.dir": 6, "design2.dir": 4, "design3.dir": 4, "design3.dir": 5, "design1.dir": 4, "design2.dir": 3, "design1.dir": 7, "design3.dir": 7, "design2.dir": 8, "design4.dir": 8, "design1.dir": 3, "design1.dir": 8, "design1.dir": 2, "design1.dir": 9, "design4.dir": 7, "design1.dir": 11, "design4.dir": 4, "design3.dir": 3, "design2.dir": 6, "design2.dir": 7, "design3.dir": 8, "design4.dir": 2, "design1.dir": 5, "design1.dir": 6, "design1.dir": 10, "design4.dir": 8, "design4.dir": 3]
  233.   set spriteToMove to getAt(MakersList, i)
  234.   set addPath to getPropAt(MakersList, i)
  235.   if status = [] then
  236.     set status to [spriteToMove]
  237.   end if
  238.   go("fade", string(thePath & ItemDel & addPath))
  239. end
  240.  
  241. on ReturnToWorld
  242.   global gWorld
  243.   do("Go" & gWorld)
  244. end
  245.  
  246. on GoSearch
  247.   global gMakersPath
  248.   ClickSnd()
  249.   updateStage()
  250.   unLoad()
  251.   unLoadCast()
  252.   GoBlackFrame()
  253.   go("fade", gMakersPath & "SEARCH.DIR")
  254. end
  255.  
  256. on GoQuit
  257.   global gMakersPath
  258.   ClickSnd()
  259.   updateStage()
  260.   unLoad()
  261.   unLoadCast()
  262.   GoBlackFrame()
  263.   go("fade", gMakersPath & "quit.DIR")
  264. end
  265.  
  266. on GoBlackFrame
  267.   global gMakerNum
  268.   unpuppet()
  269.   if gMakerNum = 119 then
  270.     go("black-matisse")
  271.   else
  272.     go("black")
  273.   end if
  274.   sound stop 1
  275.   sound stop 2
  276. end
  277.  
  278. on disposeRearWindow
  279.   global rwObj
  280.   if the machineType <> 256 then
  281.     if objectp(rwObj) then
  282.       rwObj(mdispose)
  283.     end if
  284.   end if
  285. end
  286.